home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 098 / eds.arc / EDSBOXOF.LSP < prev    next >
Encoding:
Text File  |  1980-01-01  |  572 b   |  19 lines
  1. ;This function draws a rectangle given
  2. ;a starting point and x,y offsets.
  3. ;
  4. ;Function name "EDSBOXOF.LSP" - Execution command "BO"
  5. ;
  6. ;Written by Christopher Conrad and Steve Brown
  7. ;
  8. ;
  9. ;
  10. (defun C:BO ()
  11.     (GRAPHSCR)
  12.     (TERPRI)
  13.     (SETQ PNT1 (GETPOINT "FIRST POINT ")) (TERPRI)
  14.     (SETQ PNT3 (GETPOINT "KEY-IN OFFSETS : ")) (TERPRI)
  15.     (SETQ PNT2 (LIST (+ (CAR PNT1) (CAR PNT3)) (CADR PNT1)))
  16.     (SETQ PNT4 (LIST (CAR PNT1) (+ (CADR PNT1) (CADR PNT3))))
  17.     (SETQ PNT3 (LIST (CAR PNT2) (CADR PNT4)))
  18.     (COMMAND "LINE" PNT1 PNT2 PNT3 PNT4 "C")
  19.   )